(defun C:SEXPLODE (/ cmdecho explodable entity)
  (setq cmdecho (getvar 'CMDECHO))
  (setvar "CMDECHO" 0)
  (setq explodable
         (list "3DSOLID"    "BLOCK"      "BODY"       "INSERT"
               "LEADER"     "LWPOLYLINE" "MLINE"      "MTEXT"
               "POLYLINE"   "REGION"
              )
  )
  (setq entity (entnext))
  (while entity
    (if (and (member (cdr (assoc 0 (entget entity))) explodable)
             (zerop (cdr (assoc 67 (entget entity))))
        )
      (command "_explode" entity)
    )
    (setq entity (entnext entity))
  )
  (setvar "CMDECHO" cmdecho)
  (princ)
)